#!/usr/bin/perl
use utf8;

print "please input a string:\n";
$inputed_string = <STDIN>;
print "please input a number:\n";
chomp( $inputed_number = <STDIN> );
print $inputed_string x $inputed_number;